home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / PROBABILITY.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  61 lines
  1. 5  DIM A$(25),W$(40)
  2. 10  POKE  -16298,0: TEXT : CALL  -936: GOTO 20
  3. 11  REM  PRINT CENTER ROUTINE
  4. 12 X = (40 - LEN(W$))/2 +1: HTAB (X)
  5. 13  PRINT W$
  6. 14  PRINT " <CTRL-G>": REM  CONTROL G
  7. 15  RETURN 
  8. 20  VTAB 5:W$ = "*** PROBABILITY ***": GOSUB 11
  9. 30 W$ = "BY"
  10. 35 W$ = "R.A.'DICK' JUSTICE": GOSUB 11
  11. 37  PRINT 
  12. 40 W$ = "MAY,1980": GOSUB 11
  13. 45 W$ = "(A PROGRAM THAT TELLS THE PROBABILITY": GOSUB 11
  14. 50 W$ = "OF LIKE HAPENINGS)": GOSUB 11
  15. 51  VTAB 21
  16. 52 W$ = "<PRESS THE SPACE BAR TO CONTINUE>": GOSUB 11
  17. 53 W$ = "PRESS 'ESC' TO END": GOSUB 11
  18. 58  IF  PEEK( -16384) = 155  THEN 8245
  19. 60  IF  PEEK( -16384) < >160  THEN 58
  20. 80  POKE  -16368,0
  21. 100  TEXT : HOME : VTAB (4)
  22. 110  PRINT "*";:N = N +1
  23. 120  IF N <40 GOTO 110
  24. 130  VTAB (6):A$ = "PROBABILITY OF LIKE HAPPENINGS"
  25. 140 X = (40 - LEN(A$))/2 +1: PRINT  TAB( X): PRINT A$
  26. 150  VTAB (8): PRINT "*";:M = M +1
  27. 160  IF M <40 GOTO 150
  28. 165  VTAB (10)
  29. 170  PRINT "HISTORY TELLS US THAT CHRISTOPHER       COLUMBUS USED TO USE THE PROBABILITY OF LIKE HAPPENINGS TO WIN MONEY AT DINNER  PARTIES.  HE FOUND OUT, AS UNPROBLBLE ASIT SEEMS, IF THERE ARE 30 OR MORE PEOPLE";
  30. 180  PRINT "AT A GATHERING IT IS VERY LIKELY THAT ATLEAST TWO OF THEM WILL HAVE THE SAME    BIRTHDAY.  IF THERE IS A GROUP OF12     PEOPLE IT IS VERY LIKELY THAT AT LEAST 2OF THEM WILL NAME THE SAME CARD OUT OF A";
  31. 185  PRINT "DECK OF 52 CARDS.  REMEMBER 1 MEANS IT  WILL HAPPEN ALL THE TIME, 0 MEANS IT    WILL NOT HAPPEN, .5 MEANS IT WILL HAPPEN1/2 OF THE TIME AND .71 MEANS IT WILL   HAPPEN 71 TIMES OUT OF 100."
  32. 200  PRINT " ": INPUT "TO CONTINUE PUSH RETURN";A$
  33. 210  TEXT : HOME : VTAB (8)
  34. 220  PRINT "ENTER THE TOTAL NUMBER OF CHANCES. AS ANEXAMPLE:  SAME BIRTHDAYS-365, CARDS-52, DAYS OF THE WEEK-7"
  35. 230  VTAB (14): INPUT "ENTER NUMBER  ";B$
  36. 240  IF  VAL(B$) >1  THEN  GOTO 270
  37. 250  HOME : VTAB (14): PRINT "PLEASE FOLLOW INSTRUCTIONS!"
  38. 260  FOR I = 1 TO 1000: NEXT I: GOTO 210
  39. 270  HOME : VTAB (6): PRINT "GOOD YOUR TOTAL NUMBER OF CHANCES IS ";: PRINT  VAL(B$)
  40. 280  VTAB (10): PRINT "ENTER THE NUMBER OF PERSONS IN THE GROUPOR THE NUMBER OF TRIALS"
  41. 290  INPUT C$
  42. 300 A = 1:E =  VAL(B$):F =  VAL(B$)
  43. 310  FOR B = 1 TO  VAL(C$)
  44. 320 A = A *(E/F):E = E -1
  45. 330  NEXT B: IF B =  VAL(C$)  THEN  GOTO 340
  46. 340 Q = 1 -A
  47. 350  HOME : VTAB (10): PRINT "IF ";: PRINT B$;: PRINT " PEOPLE"
  48. 360  VTAB (12): PRINT "HAVE ";: PRINT C$: PRINT " CHOICES"
  49. 370  VTAB (14): PRINT "THE PROBABILITY OF HAVING AT LEAST ONE  DUPLICATE IS"
  50. 380  VTAB (16): HTAB (20): PRINT Q
  51. 390  VTAB (23): INPUT "TO CONTINUE PUSH RETURN";G$
  52. 400  GOTO 210
  53. 8245 W$ = "*** THE END ***": GOSUB 11
  54. 9000  REM ***********************
  55. 9010  REM     *PROBABILITY*
  56. 9015  REM     DONATED TO
  57. 9020  REM     APPLE PI
  58. 9030  REM     BY
  59. 9040  REM     R.A.JUSTICE
  60. 9045  REM 
  61. 9050  REM ***********************